home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / gfx / fu1_62.lha / fu / Rexx / ITERATIONANIMATION.rexx < prev    next >
OS/2 REXX Batch file  |  1995-04-01  |  981b  |  54 lines
  1. /* FU Arexxtester */
  2.  
  3. options results
  4.  
  5. ADDRESS REXX_FU
  6.  
  7. say 'FU-ArexxAnim';say;
  8.  
  9. zyklen=3
  10. SetIter zyklen;
  11. if RC~=0 then call AppError('SetIter',RC);
  12.  
  13. x1=1.8934;y1=-1.7549;x2=2.1944;y2=-1.5196
  14. SetZoom x1 y1 x2 y2;
  15. if RC~=0 then call AppError('SetZoom',RC);
  16.  
  17. frames=50
  18.  
  19. do i=0 to frames
  20.     name='xh3:frames/MAGNETZOOM.'right(i,3,'0');
  21.     say 'Working on : ' name;
  22.  
  23.     RenderPicture;
  24.     if RC~=0 then call AppError('RenderPicture',RC);
  25.  
  26.     SavePicture name '2'
  27.     if RC~=0 then call AppError('SavePicture',RC);
  28.  
  29.     zyklen=zyklen+1;
  30.     SetIter zyklen;
  31.     
  32. end
  33.  
  34. ActivateFU;
  35. if RC~=0 then call AppError('ActivateFU',RC);
  36.  
  37. ExitFU;
  38. if RC~=0 then call AppError('ExitFU',RC);
  39.  
  40. exit
  41.  
  42. AppError:procedure
  43.     cmd=arg(1);
  44.     ret=arg(2);
  45.     say 'Application Error';say;
  46.     say 'Command 'cmd' failed with Returncode 'ret;
  47.     select
  48.         when ret='1' then say '    => unknown command';
  49.         when ret='2' then say '    => unknown parameter';
  50.         otherwise say '    => unknown returncode';
  51.     end
  52.     say;
  53. return
  54.